home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 14
/
Aminet 14 - Oct 1996.iso
/
TCalc
/
Français
/
TurboCalc3.5Demo
/
Programmer
/
Examples.lha
/
tclib2.i
< prev
Wrap
Text File
|
1994-11-28
|
2KB
|
95 lines
BASE: equr a5
XSR: macro
jsr xrout_\1(BASE)
endm
XMP: macro
jmp xrout_\1(BASE)
endm
CALL: macro
jsr \1(a6)
endm
CALL_J: macro
jmp \1(a6)
endm
DO: macro
jsr \1
endm
DO_JMP: macro
jmp \1
endm
GETEXEC: macro
move.l 4.w,a6
endm
GETDOS: macro
move.l DosBase(BASE),a6
endm
GETINT: macro
move.l IntuitionBase(BASE),a6
endm
GETGFX: macro
move.l GfxBase(BASE),a6
endm
GETLAY: macro
move.l LayersBase(BASE),a6
endm
GETFONT: macro
move.l DiskFontBase(BASE),a6
endm
**************************************************************************
********* the STRUCTURE-definitions **************************************
******* if you include it from somewhere else, simply remove here ********
******* (except for the last one: XVECT ********
**************************************************************************
STRUCTURE: macro
soffset set \2
endm
LONG: macro
\1 equ soffset
soffset set soffset+4
endm
WORD: macro
\1 equ soffset
soffset set soffset+2
endm
BYTE: macro
\1 equ soffset
soffset set soffset+1
endm
STRUCT: macro
\1 equ soffset
soffset set soffset+\2
endm
LABEL: macro
\1 equ soffset
endm
ALIGN2: macro
soffset set (soffset+1)&$fffffffe
endm
ALIGN4: macro
soffset set (soffset+3)&$fffffffc
endm
******************************************************
******************************************************
XVECT: macro ;
STRUCT xrout_\1,6 ; will be initialized with $4ef9 (jmp $xxxx)
endm